﻿Public Class ClsUcnComboboxItem
    'represents item for UcnCombobox usercontrol

#Region "Attributes"
#Region "Private attributes"
    Private MiRowID As Integer 'row ID
    Private MsPropertyID As String 'property ID
    Private MsPropertyValue As String 'property value
    Private MiImageIndex As Integer 'image index
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IsPropertyID As String, ByVal IsPropertyValue As String, ByVal IiImageIndex As Integer)
        MiRowID = IiRowID
        MsPropertyID = IsPropertyID
        MsPropertyValue = IsPropertyValue
        MiImageIndex = IiImageIndex
    End Sub
#End Region

    'PROPERTIES WITH NAME "RowID" AND "ParentRowID" ARE UNIQUE IDENTIFIERS FOR TREELIST AND THESE COLUMNS ARE INVISIBLE IN TREELIST IF THEY ARE SET TO PROPERTIES KeyFieldName and ParentFieldName PROPERTIES OF TREELIST
#Region "Properties"
#Region "Public properties"
    Public Property RowID() As Integer
        Get
            Return MiRowID
        End Get
        Set(ByVal IiValue As Integer)
            MiRowID = IiValue
        End Set
    End Property
    Public Property PropertyID() As String
        Get
            Return MsPropertyID
        End Get
        Set(ByVal IsValue As String)
            MsPropertyID = IsValue
        End Set
    End Property
    Public Property PropertyValue() As String
        Get
            Return MsPropertyValue
        End Get
        Set(ByVal IsValue As String)
            MsPropertyValue = IsValue
        End Set
    End Property
    Public Property ImageIndex() As Integer
        Get
            Return MiImageIndex
        End Get
        Set(ByVal IiValue As Integer)
            MiImageIndex = IiValue
        End Set
    End Property
#End Region
#End Region


End Class
